home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / GEOS / (g)g1.d64 / wizard (.txt) < prev   
Commodore BASIC  |  2009-01-03  |  2KB  |  77 lines
  1. 4 POKE 808,234
  2. 5 POKE 55,0:POKE 56,144:CLR
  3. 10 FOR L=828 TO 1003:READ A
  4. 20 POKE L,A:NEXT:SYS 828
  5. 22 REM ** CHINESE REMAINDER THEOREM **
  6. 25 DIM R(5)
  7. 30 POKE 53280,2:POKE 53281,10
  8. 40 PRINT"[147]":FOR I=1 TO24:PRINT"";:NEXT
  9. 45 PRINT CHR$(14);
  10. 50 PRINT"[144]";"              [212][200][197] [215][201][218][193][210][196]"
  11. 60 PRINT"[151]";"    WILL NOW HUMBLY DEMONSTRATE HIS"
  12. 70 PRINT"      SUPERIOR INTELLECTUAL POWERS"
  13. 80 FOR I=1 TO 12
  14. 90 FOR J=1 TO 300:NEXT
  15. 100 PRINT:NEXT:PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]";
  16. 110 PRINT"    [200]UMAN: PLEASE THINK OF A NUMBER"
  17. 120 PRINT"      BETWEEN 1 AND 60. [212]HE [215]IZARD"
  18. 130 PRINT"            WILL GUESS IT."
  19. 135 FOR J=3 TO 5
  20. 140 PRINT"";"    [193]FTER DIVIDING YOUR NUMBER BY";J
  21. 150 PRINT"    WHAT IS THE REMAINDER";
  22. 160 INPUT X$
  23. 170 R(J)=VAL(X$)
  24. 175 IF R(J)<>INT(R(J))GOTO200
  25. 180 IF R(J)<0 GOTO 200
  26. 190 IF R(J)<J GOTO 220
  27. 200 PRINT"[144]    [196]ON'T TRY TO CHEATE! [212]HAT'S NOT"
  28. 210 PRINT"    THE REMAINDER. [212]RY AGAIN.";:GOTO 160
  29. 220 NEXT
  30. 230 N1=40*R(3)+45*R(4)+36*R(5)
  31. 240 IF N1<61 GOTO 260
  32. 250 N1=N1-60:GOTO 240
  33. 260 PRINT"[151]    [212]HE [215]IZARD SAYS YOUR NUMBER"
  34. 270 PRINT"    IS";N1;". [201]S THE [215]IZARD RIGHT?"
  35. 280 PRINT"    [208]RESS [217] OR [206]"
  36. 290 GET X$:IF X$<>"Y" GOTO 310
  37. 295 PRINT"[144][147]    [217]OUR APPLAUSE IS ACCEPTED"
  38. 300 GOSUB 2000:GOTO 500
  39. 310 IF X$<>"N" GOTO 290
  40. 320 PRINT"[144][147]             [217][207][213] [195][200][197][193][212][197][196]!"
  41. 330 GOSUB 2500
  42. 500 PRINT"[151]    [215]ANT TO PLAY AGAIN?"
  43. 510 PRINT"    [208]RESS [217] OR [206]"
  44. 520 GET X$:IF X$="Y" GOTO 40
  45. 530 IF X$<>"N" GOTO 520
  46. 900 SYS 52298:REM RETURN TO GEOS
  47. 1000 DATA 76,175,3,56,173,54,3,233,64,141,54,3,141,0,212,141
  48. 1001 DATA 52,3,173,55,3,233,0,141,55,3,141,1,212,141,53,3,201
  49. 1002 DATA 15,240,53,78,53,3,110,52,3,24,173,52,3,109,54,3,141
  50. 1003 DATA 7,212,173,53,3,109,55,3,141,8,212,78,53,3,110,52
  51. 1004 DATA 3,24,173,52,3,109,54,3,141,14,212,173,53,3,109,55
  52. 1005 DATA 3,141,15,212,76,49,234,120,169,49,141,20,3,169,234
  53. 1006 DATA 141,21,3,88,169,32,141,4,212,141,11,212,141,18,212
  54. 1007 DATA 76,49,234,162,0,189,211,3,157,0,212,232,224,25,208
  55. 1008 DATA 245,120,169,63,141,20,3,169,3,141,21,3,88,169,0,141
  56. 1009 DATA 54,3,169,170,141,55,3,96,0,170,0,0,33,0,240,0,170
  57. 1010 DATA 0,0,33,0,240,0,170,0,0,33,0,240,0,0,0,15
  58. 2000 FOR L=54272 TO 54295:POKE L,0:NEXT:POKE 54296,15
  59. 2020 AD=15:SR=190
  60. 2030 POKE 54284,AD:POKE 54291,AD:POKE 54285,SR:POKE 54292,SR
  61. 2040 POKE 54283,21:POKE 54290,23
  62. 2050 FOR F1=200 TO 1 STEP -10:POKE 54273,F1
  63. 2060 FOR F2=200 TO 1 STEP -50:FOR F3=1 TO 4:POKE 54280,F2:POKE 54287,F3:NEXT
  64. 2070 NEXT:NEXT:FOR Q=15 TO 0 STEP -.1:POKE 54296,Q:NEXT
  65. 2080 FOR L=54272 TO 54295:POKE L,O:NEXT
  66. 2090 RETURN
  67. 2500 S=54272
  68. 2520 FOR L=54272 TO 54295:POKE L,0:NEXT:POKE 54296,15
  69. 2530 POKE S+14,10:POKE S+18,16:POKE S+3,1:POKE S+24,143:POKE S+6,240
  70. 2535 POKE S+4,65:FR=7000
  71. 2540 FOR T=1 TO 150
  72. 2545 FQ=FR+PEEK(S+27)*3.5
  73. 2550 HF=INT(FQ/256):LF=FQ-HF*256
  74. 2560 POKE S,LF:POKE S+1,HF
  75. 2565 NEXT:POKE S+24,0
  76. 2570 RETURN
  77.